home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / WORDMISC / PARSE.LZH / PAR.ZIP / EXAMPLE3.POM < prev    next >
Text File  |  1993-01-03  |  1KB  |  49 lines
  1. ;
  2. ; Minimum line length
  3. ;
  4. MINLEN = "1"
  5. ;
  6. ; Determine where we are.  (HDRCNTR is null until first match)
  7. ;
  8. IF      $FLINE[  1  11] = "-----------" THEN HDRCNTR = HDRCNTR+
  9. ;
  10. ; Ignore start of input
  11. ;
  12. IGNORE  HDRCNTR         = ""
  13. ;
  14. ; Wait until fourth line of dashes, then start ignoring
  15. ;
  16. IGNORE  FINISHED        = "Y"
  17. IF      HDRCNTR         = "4" THEN FINISHED = "Y"
  18. ;
  19. ; Accept header lines and IBM boards only
  20. ; Note the use of "clustered ACCEPTs" here
  21. ;
  22. SET     TEST            = $FLINE[ 46  47]
  23. ACCEPT  TEST            = "IB"
  24. ACCEPT  TEST            = "--"
  25. ACCEPT  $FLINE[ 40  47] = "BR BD MA"
  26. ;
  27. ; Skip slow baud rates
  28. ;                                        
  29. IGNORE  $FLINE[ 43  44] = "30"
  30. IGNORE  $FLINE[ 43  44] = "12"
  31. ;
  32. ; Skip pay boards
  33. ;                                        
  34. IGNORE  $FLINE[ 49    ] = "Y"
  35. ;
  36. ; Skip boards without file transfer
  37. ;                                        
  38. IGNORE  $FLINE[ 50    ] = "N"
  39. ;
  40. ; Replace baud rates for modems we can't handshake with, using our v32 modem
  41. ;              
  42. CHANGE  $FLINE  " 9H "   =   " 24 "
  43. CHANGE  $FLINE  " 9P "   =   " 24 "
  44. CHANGE  $FLINE  " 9V "   =   " 24 "
  45. ;
  46. ; Output
  47. ;
  48. OUTEND  "" "" |{$FLINE}
  49.